Especial Multimedia/Especial Multimedia.iso/Multimed/Musica/ZMUD32.ZIP/ZMUD.EXE/0/RCDATA/TMUDFORM/TMUDFORM.txt

Text File | 1997-06-09 | 18KB | 678 lines

object MUDForm: TMUDForm
  Left = 149
  Top = 122
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  AutoScroll = False
  Caption = 'zMUD'
  ClientHeight = 333
  ClientWidth = 594
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  FormStyle = fsMDIChild
  Menu = MainMenu1
  Position = poDefault
  ShowHint = True
  Visible = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  object PanelTop: TPanel
    Left = 0
    Top = 0
    Width = 594
    Height = 25
    Hint = 'Right click to define button|'
    Align = alTop
    BevelOuter = bvLowered
    TabOrder = 0
    Visible = False
    OnMouseDown = Speed1MouseDown
  end
  object UserOut: TTerm
    Left = 0
    Top = 25
    Width = 576
    Height = 290
    Cursor = crIBeam
    InsMode = False
    VScroll = VScroll
    HScroll = HScroll
    TextAttr = 15
    DefColor = 0
    WrapIndent = 3
    OnNewLine = UserOutNewLine
    OnSend = UserOutSend
    OnRDblClick = UserOutRDblClick
    OnStatus = UserOutStatus
    Margin = 5
    SplitPos = 0
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Courier'
    Font.Style = []
    TabOrder = 1
    Color = clBlack
    ParentColor = False
    ParentFont = False
    TabStop = True
    Align = alClient
    OnKeyDown = UserOutKeyDown
    OnKeyPress = UserOutKeyPress
    OnMouseDown = UserOutMouseDown
  end
  object Panel1: TPanel
    Left = 0
    Top = 315
    Width = 594
    Height = 18
    Align = alBottom
    BevelOuter = bvNone
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    object Panel3: TPanel
      Left = 576
      Top = 0
      Width = 18
      Height = 18
      Align = alRight
      BevelOuter = bvLowered
      TabOrder = 0
      object PauseBut: TSpeedButton
        Left = 1
        Top = 1
        Width = 16
        Height = 16
        Hint = 'Toggle Splitscreen|'
        AllowAllUp = True
        GroupIndex = 1
        Glyph.Data = {
          DE000000424DDE0000000000000076000000280000000D0000000D0000000100
          0400000000006800000000000000000000001000000010000000000000000000
          BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
          7000777777777777700077777777777770007777777777777000777777777777
          70007700000000077000770CCCCCCC0770007700000000077000777777777777
          7000777777777777700077777777777770007777777777777000777777777777
          7000}
        Margin = 0
        OnClick = PauseButClick
      end
    end
    object Panel4: TPanel
      Left = 382
      Top = 0
      Width = 194
      Height = 18
      Align = alRight
      BevelOuter = bvLowered
      TabOrder = 1
      object HScroll: TScrollBar
        Left = 1
        Top = 1
        Width = 192
        Height = 16
        LargeChange = 35
        Max = 0
        TabOrder = 0
      end
    end
    object GrabBar1: TGrabBar
      Left = 376
      Top = 0
      Width = 6
      Height = 17
      Cursor = crHSplit
      DragUpdate = True
      Style = gbVertical
      Thickness = 6
      WindowA = StatBar
      WindowB = Panel4
      OnMove = GrabBar1Move
    end
    object StatBar: TPanel
      Left = 33
      Top = 0
      Width = 343
      Height = 18
      Hint = 'Right click to define status bar|'
      Align = alLeft
      Alignment = taLeftJustify
      BevelOuter = bvLowered
      TabOrder = 3
      OnMouseDown = StatBarMouseDown
      object TimeBar: TPanel
        Left = 242
        Top = 1
        Width = 60
        Height = 16
        Hint = 'Connection timer|'
        Align = alRight
        BevelOuter = bvLowered
        TabOrder = 0
      end
      object TickBar: TPanel
        Left = 302
        Top = 1
        Width = 40
        Height = 16
        Hint = 'Tick Timer|'
        Align = alRight
        BevelOuter = bvLowered
        TabOrder = 1
      end
    end
    object ButBar: TPanel
      Left = 0
      Top = 0
      Width = 33
      Height = 18
      Align = alLeft
      BevelOuter = bvLowered
      TabOrder = 4
      Visible = False
      object LostCancelBtn: TSpeedButton
        Left = 1
        Top = 1
        Width = 16
        Height = 16
        Hint = 'Cancel reconnect|'
        Glyph.Data = {
          C6000000424DC60000000000000076000000280000000A0000000A0000000100
          0400000000005000000000000000000000000000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00707777707700
          0000090777090700000099907099970000007999099977000000779999977700
          0000770999077700000070999990770000000999799907000000999777999700
          00007977777977000000}
        OnClick = CancelReconnectClick
      end
      object LostConnBtn: TSpeedButton
        Left = 17
        Top = 1
        Width = 16
        Height = 16
        Hint = 'Reconnect now|'
        Glyph.Data = {
          C6000000424DC60000000000000076000000280000000A0000000A0000000100
          0400000000005000000000000000000000000000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888800
          0000888888888800000082888000000000002088A2222000000020888A222000
          00002088802220000000A200028A200000008A222888A800000088AAA8888800
          00008888888888000000}
        OnClick = ReconnectClick
      end
    end
  end
  object Panel2: TPanel
    Left = 576
    Top = 25
    Width = 18
    Height = 290
    Align = alRight
    BevelOuter = bvLowered
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    object VScroll: TScrollBar
      Left = 1
      Top = 1
      Width = 16
      Height = 288
      Kind = sbVertical
      LargeChange = 22
      Max = 0
      TabOrder = 0
    end
  end
  object MainMenu1: TMainMenu
    Left = 520
    Top = 32
    object Edit1: TMenuItem
      Caption = '&Edit'
      GroupIndex = 5
      Hint = 'Edit menu'
      ShortCut = 0
      OnClick = Edit1Click
      object Cut1: TMenuItem
        Caption = 'Cu&t'
        Hint = 'Cut text to clipboard'
        ShortCut = 16472
        OnClick = Cut1Click
      end
      object Copy1: TMenuItem
        Caption = '&Copy'
        Hint = 'Copy text to clipboard'
        ShortCut = 16451
        OnClick = Copy1Click
      end
      object Paste1: TMenuItem
        Caption = '&Paste'
        Hint = 'Paste text from clipboard'
        ShortCut = 16470
        OnClick = Paste1Click
      end
      object CopyDDELink1: TMenuItem
        Caption = 'Copy DDE Link'
        ShortCut = 0
        OnClick = CopyDDELink1Click
      end
      object N5: TMenuItem
        Caption = '-'
        Hint = ' '
        ShortCut = 0
      end
      object SelectAll1: TMenuItem
        Caption = 'Select &All'
        Hint = 'Highlight all'
        ShortCut = 0
        OnClick = SelectAll1Click
      end
      object Clear1: TMenuItem
        Caption = 'Clear'
        Hint = 'Clear selection'
        ShortCut = 16469
        OnClick = Clear1Click
      end
      object N12: TMenuItem
        Caption = '-'
        Hint = ' '
        ShortCut = 0
      end
      object Find1: TMenuItem
        Caption = '&Find...'
        Hint = 'Search for text'
        ShortCut = 16454
        OnClick = Find1Click
      end
    end
    object View1: TMenuItem
      Caption = '&View'
      GroupIndex = 5
      Hint = 'View menu'
      ShortCut = 0
      object Preferences1: TMenuItem
        Caption = '&Preferences'
        Hint = 'View preferences settings'
        ShortCut = 0
        object General1: TMenuItem
          Caption = '&General...'
          Hint = 'Veiw/edit general preferences'
          ShortCut = 0
          OnClick = Preferences1Click
        end
        object Colors1: TMenuItem
          Caption = '&Colors...'
          Hint = 'View/edit color settings'
          ShortCut = 0
          OnClick = Colors1Click
        end
        object Fonts1: TMenuItem
          Caption = '&Fonts...'
          Hint = 'View/edit font settings'
          ShortCut = 0
          OnClick = Font1Click
        end
        object Sounds1: TMenuItem
          Caption = '&Sounds...'
          Hint = 'View/edit sound settings'
          ShortCut = 0
          OnClick = Sounds1Click
        end
        object N15: TMenuItem
          Caption = '-'
          ShortCut = 0
        end
        object SpecialCharacters1: TMenuItem
          Caption = 'Special Characters...'
          Hint = 'View/edit special characters'
          ShortCut = 0
          OnClick = SpecialCharacters1Click
        end
        object Memory1: TMenuItem
          Caption = '&Memory...'
          Hint = 'View/edit memory settings'
          ShortCut = 0
          OnClick = Memory1Click
        end
        object Directories1: TMenuItem
          Caption = 'Directories...'
          Hint = 'View/edit directory locations'
          ShortCut = 0
          OnClick = Directories1Click
        end
      end
      object N14: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Aliases1: TMenuItem
        Caption = '&Aliases...'
        Hint = 'View/edit aliases'
        ShortCut = 0
        OnClick = Aliases1Click
      end
      object Variables1: TMenuItem
        Caption = '&Variables...'
        Hint = 'View/edit variables'
        ShortCut = 0
        OnClick = Variables1Click
      end
      object Triggers1: TMenuItem
        Caption = '&Triggers...'
        Hint = 'View/edit triggers'
        ShortCut = 0
        OnClick = Triggers1Click
      end
      object Macrokeys1: TMenuItem
        Caption = '&Macro keys...'
        Hint = 'View/edit macros'
        ShortCut = 0
        OnClick = MacroKeys1Click
      end
      object Buttons1: TMenuItem
        Caption = '&Buttons...'
        Hint = 'View/edit buttons'
        ShortCut = 0
        OnClick = Buttons1Click
      end
      object TabCompletion1: TMenuItem
        Caption = 'Tab &Completion...'
        Hint = 'View/edit tab completion words'
        ShortCut = 0
        OnClick = TabCompletion1Click
      end
      object SpeedMenu1: TMenuItem
        Caption = 'Speed &Menu...'
        Hint = 'View/edit speed menu'
        ShortCut = 0
        OnClick = SpeedMenu1Click
      end
      object N13: TMenuItem
        Caption = '-'
        Hint = ' '
        ShortCut = 0
      end
      object Speedwalking2: TMenuItem
        Caption = 'Speed &Walking...'
        Hint = 'View/edit speedwalking'
        ShortCut = 0
        OnClick = Speedwalking1Click
      end
      object Directions1: TMenuItem
        Caption = '&Directions...'
        Hint = 'View/edit speedwalking direction definitions'
        ShortCut = 0
        OnClick = Directions1Click
      end
    end
    object Settings1: TMenuItem
      Caption = '&Settings'
      GroupIndex = 6
      Hint = 'Settings menu'
      ShortCut = 0
      OnClick = Settings1Click
      object New2: TMenuItem
        Caption = '&New...'
        GroupIndex = 41
        Hint = 'Create a new, empty settings file'
        ShortCut = 0
        OnClick = New2Click
      end
      object Load1: TMenuItem
        Caption = '&Load...'
        GroupIndex = 42
        Hint = 'Load a MUD settings file'
        ShortCut = 0
        OnClick = Load1Click
      end
      object Save2: TMenuItem
        Caption = '&Save'
        GroupIndex = 43
        Hint = 'Save the current MUD settings'
        ShortCut = 0
        OnClick = Save2Click
      end
      object Save3: TMenuItem
        Caption = 'Save &As...'
        GroupIndex = 44
        Hint = 'Save current MUD settings to a new filename'
        ShortCut = 0
        OnClick = Save3Click
      end
      object N2: TMenuItem
        Caption = '-'
        GroupIndex = 44
        Hint = ' '
        ShortCut = 0
      end
      object Import1: TMenuItem
        Caption = '&Import'
        GroupIndex = 44
        Hint = 'Import settings'
        ShortCut = 0
        object Settings2: TMenuItem
          Caption = '&Settings...'
          Hint = 'Import from MUD settings file'
          ShortCut = 0
          OnClick = Settings2Click
        end
        object ASCII1: TMenuItem
          Caption = 'Script (&ASCII)...'
          Hint = 'Import settings from a zMUD script file'
          ShortCut = 0
          OnClick = ASCII1Click
        end
        object Tintin1: TMenuItem
          Caption = '&Tintin++...'
          Hint = 'Import settings from a TinTin++ script file'
          ShortCut = 0
          OnClick = Tintin1Click
        end
      end
      object Export1: TMenuItem
        Caption = '&Export...'
        GroupIndex = 44
        Hint = 'Export settings to a zMUD script file'
        ShortCut = 0
        OnClick = Export1Click
      end
      object N11: TMenuItem
        Caption = '-'
        GroupIndex = 44
        Hint = ' '
        ShortCut = 0
      end
      object Parse1: TMenuItem
        Caption = 'Pa&rse'
        GroupIndex = 44
        Hint = 'Toggle command parsing'
        ShortCut = 16466
        OnClick = Parse1Click
      end
      object EnableTriggers1: TMenuItem
        Caption = 'Enable Triggers'
        GroupIndex = 44
        Hint = 'Toggle all triggers'
        ShortCut = 0
        OnClick = EnableTriggers1Click
      end
    end
    object Actions1: TMenuItem
      Caption = '&Actions'
      GroupIndex = 7
      Hint = 'Actions menu'
      ShortCut = 0
      OnClick = Actions1Click
      object MakeAlias1: TMenuItem
        Caption = 'Make &Alias...'
        GroupIndex = 81
        Hint = 'Create a new alias for the command in the input buffer'
        ShortCut = 16449
        OnClick = MakeAlias1Click
      end
      object MakeTrigger1: TMenuItem
        Caption = 'Make &Trigger...'
        GroupIndex = 82
        Hint = 'Create a new trigger'
        ShortCut = 16468
        OnClick = MakeTrigger1Click
      end
      object Macros1: TMenuItem
        Caption = 'Define Macro &Key...'
        GroupIndex = 82
        Hint = 'Create a new macro key'
        ShortCut = 16459
        OnClick = Macros1Click
      end
      object MakeButton1: TMenuItem
        Caption = 'Make &Button...'
        GroupIndex = 82
        Hint = 'Create a new button'
        ShortCut = 16450
        OnClick = MakeButton1Click
      end
      object AddTabWord1: TMenuItem
        Caption = 'Add Tab &Word'
        GroupIndex = 83
        Hint = 'Add last word in input buffer to tab completion list'
        ShortCut = 16471
        OnClick = AddTabWord1Click
      end
      object N10: TMenuItem
        Caption = '-'
        GroupIndex = 84
        Hint = ' '
        ShortCut = 0
      end
      object Speedwalking1: TMenuItem
        Caption = '&Speedwalking...'
        GroupIndex = 84
        Hint = 'Edit paths and speedwalking variables and parameters'
        ShortCut = 16467
        OnClick = Speedwalking1Click
      end
      object N9: TMenuItem
        Caption = '-'
        GroupIndex = 89
        Hint = ' '
        ShortCut = 0
      end
      object TickTimer1: TMenuItem
        Caption = 'T&ick Timer...'
        GroupIndex = 90
        Hint = 'Display the Tick Timer dialog'
        ShortCut = 0
        OnClick = TickTimer1Click
      end
      object TickStart1: TMenuItem
        Caption = 'S&ync Timer'
        GroupIndex = 91
        Hint = 'Synchronize the tick timer'
        ShortCut = 0
        OnClick = TickStart1Click
      end
      object N8: TMenuItem
        Caption = '-'
        GroupIndex = 91
        Hint = ' '
        ShortCut = 0
      end
      object DefineStatusBar1: TMenuItem
        Caption = 'Define Status Bar...'
        GroupIndex = 91
        Hint = 'Set the definition of the status bar'
        ShortCut = 0
        OnClick = DefineStatusBar1Click
      end
      object Speedtest1: TMenuItem
        Caption = 'Speed test'
        GroupIndex = 91
        ShortCut = 16465
        Visible = False
        OnClick = Speedtest1Click
      end
    end
  end
  object OpenFileDialog: TOpenDialog
    DefaultExt = 'mud'
    FileEditStyle = fsEdit
    Filter =
      'MUD Files|*.mud|Script Files|*.zsc|Text Files|*.txt|All Files|*.' +
      '*'
    Left = 416
    Top = 32
  end
  object SaveFileDialog: TSaveDialog
    DefaultExt = 'mud'
    FileEditStyle = fsEdit
    Filter = 'MUD Files|*.mud|All files|*.*'
    Options = [ofHideReadOnly, ofNoReadOnlyReturn]
    Left = 448
    Top = 32
  end
  object WaitTimer: TTimer
    Enabled = False
    OnTimer = WaitTimerTimer
    Left = 520
    Top = 72
  end
  object StepTimer: TTimer
    Enabled = False
    Interval = 5000
    OnTimer = StepTimerTimer
    Left = 520
    Top = 104
  end
  object TickMenu: TPopupMenu
    OnPopup = TickMenuPopup
    Left = 152
    Top = 88
    object Enable1: TMenuItem
      Caption = 'Enable'
      ShortCut = 0
      OnClick = Enable1Click
    end
    object Sync1: TMenuItem
      Caption = 'Sync'
      ShortCut = 0
      OnClick = Sync1Click
    end
    object N7: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object TickDialog1: TMenuItem
      Caption = 'Tick Dialog'
      ShortCut = 0
      OnClick = TickDialog1Click
    end
  end
  object SpeedMenu: TPopupMenu
    AutoPopup = False
    Left = 152
    Top = 128
  end
  object FindDlg: TFindDialog
    Options = [frHideMatchCase, frHideWholeWord, frDisableMatchCase, frDisableWholeWord]
    OnFind = FindDlgFind
    Left = 416
    Top = 72
  end
end